Action Arcade 1997/Action Arcade 1997.iso/ps/unit16.~df/unit16.txt

Text File | 1996-12-17 | 8KB | 400 lines

object Form1: TForm1
  Left = 38
  Top = 12
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 404
  ClientWidth = 582
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 582
    Height = 404
    Align = alClient
    BevelOuter = bvLowered
    BevelWidth = 2
    BorderStyle = bsSingle
    Caption = 'Panel1'
    Color = clWhite
    TabOrder = 0
    object Image2: TImage
      Left = 480
      Top = 176
      Width = 92
      Height = 91
      Picture.Data = {<image000.bmp>}
    end
    object Image1: TImage
      Left = 480
      Top = 176
      Width = 93
      Height = 91
      AutoSize = True
      Picture.Data = {<image001.bmp>}
      OnMouseDown = Image1MouseDown
      OnMouseUp = Image1MouseUp
    end
    object RCD: TImage
      Left = 480
      Top = 72
      Width = 89
      Height = 87
      AutoSize = True
      Picture.Data = {<image002.bmp>}
    end
    object Image3: TImage
      Left = 480
      Top = 71
      Width = 90
      Height = 88
      AutoSize = True
      Picture.Data = {<image003.bmp>}
      OnMouseDown = Image3MouseDown
      OnMouseUp = Image3MouseUp
    end
    object Image4: TImage
      Left = 496
      Top = 304
      Width = 68
      Height = 67
      AutoSize = True
      Picture.Data = {<image004.bmp>}
      OnClick = Image4Click
    end
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 303
      Height = 29
      Caption = 'ACTION ARCADE " 1997 "'
      Font.Color = clWhite
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 14
      Top = 9
      Width = 303
      Height = 29
      Caption = 'ACTION ARCADE " 1997 "'
      Font.Color = clGray
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label3: TLabel
      Left = 15
      Top = 8
      Width = 303
      Height = 29
      Caption = 'ACTION ARCADE " 1997 "'
      Font.Color = clRed
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object ben: TGauge
      Left = 72
      Top = 408
      Width = 401
      Height = 17
      Progress = 0
      Visible = False
    end
    object ScrollBox1: TScrollBox
      Left = 8
      Top = 40
      Width = 465
      Height = 353
      TabOrder = 0
      object Image5: TImage
        Left = 0
        Top = 0
        Width = 460
        Height = 348
        AutoSize = True
        Picture.Data = {<image005.bmp>}
      end
      object Label4: TLabel
        Left = 344
        Top = 312
        Width = 108
        Height = 31
        Caption = 'PSM Inc.'
        Font.Color = clSilver
        Font.Height = -27
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label5: TLabel
        Left = 342
        Top = 314
        Width = 108
        Height = 31
        Caption = 'PSM Inc.'
        Font.Color = clBlack
        Font.Height = -27
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label6: TLabel
        Left = 343
        Top = 312
        Width = 108
        Height = 31
        Caption = 'PSM Inc.'
        Font.Color = clYellow
        Font.Height = -27
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object flb1: TFileListBox
        Left = 48
        Top = 144
        Width = 145
        Height = 97
        ItemHeight = 13
        Mask = '*.bmp'
        TabOrder = 0
        Visible = False
      end
      object flb2: TFileListBox
        Left = 208
        Top = 136
        Width = 145
        Height = 97
        ItemHeight = 13
        Mask = '*.com;*.exe;*.bat'
        TabOrder = 1
        Visible = False
      end
      object flb3: TFileListBox
        Left = 104
        Top = 24
        Width = 145
        Height = 97
        ItemHeight = 13
        TabOrder = 2
        Visible = False
      end
    end
    object dr: TComboBox
      Left = 16
      Top = 405
      Width = 49
      Height = 24
      ItemHeight = 16
      Items.Strings = (
        'c:'
        'd:'
        'e:'
        'f:'
        'g:'
        'h:'
        'i:'
        'j:'
        'k:'
        'l:'
        'm:'
        'n:'
        'o:'
        'p:'
        'q:'
        'r:'
        's:'
        't:'
        'u:'
        'v:'
        'x:'
        'w:'
        'y:'
        'z:')
      TabOrder = 1
      Text = 'c:'
      Visible = False
    end
    object BitBtn1: TBitBtn
      Left = 488
      Top = 403
      Width = 75
      Height = 25
      Caption = 'Go'
      TabOrder = 2
      OnClick = BitBtn1Click
      Kind = bkIgnore
    end
  end
  object ComboBox1: TComboBox
    Left = 370
    Top = 8
    Width = 185
    Height = 24
    ItemHeight = 16
    Items.Strings = (
      '3D-CHESS'
      '3D-MANIA'
      'ALIENSAT'
      'ANTRUN'
      'APOCALYP'
      'ARCY'
      'ASTROFIR'
      'BANANOID'
      'BATLCHES'
      'BATLSHIP'
      'BIO-MEN'
      'BLOCKMAN'
      'BLOCKOUT'
      'BOGGLED'
      'BOLOBALL'
      'BRAINSTM'
      'BREAKFRE'
      'BREAKIN'
      'BRIX'
      'CHECKERS'
      'CHINESE'
      'CHOMPER'
      'CLYDE'
      'COLGATE'
      'COMKEEN1'
      'COMKEEN4'
      'CONNECT'
      'CONNEX'
      'CORRIDOR'
      'CRAZY-8'
      'CUBULUS'
      'CYBERDOG'
      'DARNIT'
      'DEADLINE'
      'DEFCON'
      'DEFENDER'
      'DIAMOND'
      'DONKEY'
      'DOOM'
      'DOUBLE'
      'DSCHUMP'
      'DUKE1'
      'DUKE2'
      'DUKE3D'
      'ELECTRAN'
      'ELECTROB'
      'EVASIVE'
      'EXTREME'
      'FORZEE'
      'GALACTIX'
      'GALAXIAN'
      'GATEWRLD'
      'GEMSTONE'
      'GOBMAN'
      'GOD-OF'
      'GRIDLY'
      'HELIOUS'
      'HERETIC'
      'HERO'
      'HEXIPUZZ'
      'HEXXAGON'
      'IN-PURS'
      'JAZZJACK'
      'JAZZXMAS'
      'JETPACK'
      'JILL'
      'KEENDREA'
      'KENS'
      'LASER'
      'LASTEICH'
      'LIONKING'
      'LOSTCITY'
      'MAHJONGG'
      'MAJ-VGA'
      'MARBLE'
      'MARIO'
      'MEGAPEDE'
      'MICEMEN'
      'MINES'
      'MSPACMAN'
      'MUTANT'
      'NOTRUS'
      'OILCAP'
      'ORIGAMO'
      'OVERKILL'
      'OXYD'
      'PACO-1'
      'PACO-2'
      'PAGAN'
      'PLASMA'
      'POD'
      'POWERPUZ'
      'PRISONER'
      'PROJ-X'
      'QUATRIS'
      'RAPTOR'
      'RESCUE'
      'RINGS'
      'RODGE'
      'ROLLIN'
      'ROTAKTIX'
      'SCORCH'
      'SECRET'
      'SLORDAX'
      'SOLAR'
      'SOLITAIR'
      'SOLSUITE'
      'SPEAR'
      'SQUAREX'
      'SQUAREZ'
      'STARGUN'
      'STARMINE'
      'SUPAPLEX'
      'SUPERKAR'
      'SWITCH'
      'TOWERS'
      'TRIBUTE'
      'TROLLS'
      'TUBWORLD'
      'TUNNEL'
      'TWINBLOK'
      'ULTIMATE'
      'VIDPOKER'
      'VINYL'
      'VIRTUAL'
      'WACKY'
      'WOLF-3D'
      'WORDBIRD'
      'XATAX'
      'XQUEST'
      'YATZ'
      'ZENTRIS'
      'ZONG')
    TabOrder = 1
    Text = 'Select you game here ...'
    OnChange = ComboBox1Change
  end
  object DdeClient: TDdeClientConv
    DdeService = 'progman'
    Left = 300
    Top = 100
    LinkInfo = (
      'Service progman'
      'Topic ')
  end
end